home *** CD-ROM | disk | FTP | other *** search
/ Tech Win 1999 February / TECH Win 02-1999 Disc A.iso / ols / lzh / htmlmac2.lzh / HTMLKJ.MAC next >
Encoding:
Text File  |  1995-10-08  |  1.1 KB  |  52 lines
  1. /////////////////////////////////////////////////////////////////////
  2. // html macro ver 0.01 - kajyogaki
  3. // hidemaru macro "htmlkj.mac"
  4. // saito-soft (saito tomonobu) 1995.10.04
  5. // Mail to: saito-to@jed.uec.ac.jp
  6.  
  7. /////////////////////////////////////////////////////////////////////
  8. // menu setting
  9. #menus = 5;
  10. $menu[ 0] = "(&u)単純箇条書き";
  11. $menu[ 1] = "(&o)番号箇条書き";
  12. $menu[ 2] = "(&d)用語表示例";
  13. $menu[ 3] = "(&i)要素１";
  14. $menu[ 4] = "(&l)要素２";
  15.  
  16. /////////////////////////////////////////////////////////////////////
  17. // main
  18. menuarray $menu, #menus;
  19. if (result == 0) endmacro;
  20.  
  21. // 単純箇条書き
  22. else if (result == 1) {
  23.     insertfix "<ul>\n <li>\n</ul>\n";
  24.     down;
  25.     right 5;
  26. }
  27. // 番号箇条書き
  28. else if (result == 2) {
  29.     insertfix "<ol>\n <li>\n</ol>\n"; 
  30.     down;
  31.     right 5;
  32. }
  33. // 用語表示例
  34. else if (result == 3) {
  35.     insertfix "<dl>\n <dt>\n <dd>\n</dl>\n";
  36.     down;
  37.     right 5;
  38. }
  39. // 要素１
  40. else if (result == 4) {
  41.     insert " <li>";
  42. }
  43. // 要素２
  44. else if (result == 5) {
  45.     insertfix " <dt>\n <dd>";
  46.     right 5;
  47. }
  48.  
  49. /////////////////////////////////////////////////////////////////////
  50. // end macro
  51. endmacro;
  52.